home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 26 / 3 / DISK2631.ZIP / EXAMP1.ZIP / UMEX227.BAS < prev    next >
BASIC Source File  |  1990-07-06  |  763b  |  38 lines
  1. 'User's Manual Example, Page 227.
  2.  
  3. ' demo of use of multiple pages
  4. SCREEN 0,0,0,0
  5. PRINT "Start out on screen 0"
  6. x$ = INPUT$(1)
  7. SCREEN 0,0,1,1
  8. LOCATE 1,1
  9. PRINT "Now jump to screen 1"
  10. CALL fillscreen
  11. x$ = INPUT$(1)
  12. SCREEN 0,0,0,0
  13. PRINT "Just checking that screen 0's still OK"
  14. x$ = INPUT$(1)
  15. SCREEN 0,0,1,1
  16. PRINT "Now fill screen 2 before switching to it"
  17. SCREEN 0,0,2,1
  18. LOCATE 1,1
  19. CALL fillscreen
  20. x$ = INPUT$(1)
  21. SCREEN 0,0,2,2
  22. PRINT "Now on screen 2"
  23. s$ = INPUT$(1)
  24. COLOR 14,4
  25. FOR i = 0 TO 2
  26.   SCREEN 0,0,i,i
  27.   LOCATE 5,30 : PRINT "Reviewing screen"; i
  28.   x$ = INPUT$(1)
  29. NEXT i
  30. END
  31.  
  32. SUB fillscreen
  33.   FOR i = 1 to 10
  34.     PRINT STRING$(i*4,15)
  35.     DELAY .2 'PowerBASIC's too fast--slow it down so you can see it
  36.   NEXT i
  37. END SUB
  38.